Golf Digest's Best Places to Play/Golf Digest's Best Places to Play.iso/diamond/dbrs_ibm.dir/00027_Script_JewelerScript

Text File | 1995-05-15 | 660b | 25 lines

on exitFrame
  go to marker(0)+4
end

on mouseDown
  set ButtonNum=the clickOn
  if ButtonNum>0 then
    set ButtonName=the name of cast (the castNum of sprite ButtonNum)
    if chars(ButtonName,1,6) = "ToMain" then
      if PressBtn(ButtonNum) then
        AllPuppetsOff
        updateStage
        go to marker(0)+5
      end if
    end if
    if chars(ButtonName,1,4) = "Help" then
      if PressBtn(ButtonNum) then
        showHelp
        puppetsprite ButtonNum, true
        set the castNum of sprite ButtonNum to the number of cast (ButtonName)
        puppetsprite ButtonNum, false
      end if
    end if
  end if
end mouseDown